1     REM   GTR
500 SCREEN 2:SCREEN 1:CLS:RANDOMIZE TIMER:KEY OFF:COLOR 0,2
510 SIZE=100:DELAY=1.2
511      A1=INT(RND*215)+1:B1=INT(RND* 95)+1:C1=A1+SIZE       :D1=INT(RND*195)+1
550 RANDOMIZE TIMER
562 OAS=INT(RND* 5)+.5
572 OBS=INT(RND* 5)+.5
582 OCS=INT(RND* 5)+.5
592 ODS=INT(RND* 5)+.5
602 COL=INT(RND*3 )+1
915 AS=OAS:BS=OBS:CS=OCS:DS=ODS
1500 A$=INKEY$:IF LEN(A$)>0 THEN LOAD"GO",R
1906 A40=A39:B40=B39:C40=C39:D40=D39
1907 A39=A38:B39=B38:C39=C38:D39=D38
1908 A38=A37:B38=B37:C38=C37:D38=D37
1909 A37=A36:B37=B36:C37=C36:D37=D36
1910 A36=A35:B36=B35:C36=C35:D36=D35
1911 A35=A34:B35=B34:C35=C34:D35=D34
1912 A34=A33:B34=B33:C34=C33:D34=D33
1913 A33=A32:B33=B32:C33=C32:D33=D32
1914 A32=A31:B32=B31:C32=C31:D32=D31
1915 A31=A30:B31=B30:C31=C30:D31=D30
1916 A30=A29:B30=B29:C30=C29:D30=D29
2006 A30=A29:B30=B29:C30=C29:D30=D29
2007 A29=A28:B29=B28:C29=C28:D29=D28
2008 A28=A27:B28=B27:C28=C27:D28=D27
2009 A27=A26:B27=B26:C27=C26:D27=D26
2010 A26=A25:B26=B25:C26=C25:D26=D25
2011 A25=A24:B25=B24:C25=C24:D25=D24
2012 A24=A23:B24=B23:C24=C23:D24=D23
2013 A23=A22:B23=B22:C23=C22:D23=D22
2014 A22=A21:B22=B21:C22=C21:D22=D21
2015 A21=A20:B21=B20:C21=C20:D21=D20
2016 A20=A19:B20=B19:C20=C19:D20=D19
2017 A19=A18:B19=B18:C19=C18:D19=D18
2018 A18=A17:B18=B17:C18=C17:D18=D17
2019 A17=A16:B17=B16:C17=C16:D17=D16
2020 A16=A15:B16=B15:C16=C15:D16=D15
2024 A15=A14:B15=B14:C15=C14:D15=D14
2028 A14=A13:B14=B13:C14=C13:D14=D13
2032 A13=A12:B13=B12:C13=C12:D13=D12
2036 A12=A11:B12=B11:C12=C11:D12=D11
2040 A11=A10:B11=B10:C11=C10:D11=D10
2050 A10=A9:B10=B9:C10=C9:D10=D9
2060 A9=A8:B9=B8:C9=C8:D9=D8
2070 A8=A7:B8=B7:C8=C7:D8=D7
2080 A7=A6:B7=B6:C7=C6:D7=D6
2090 A6=A5:B6=B5:C6=C5:D6=D5
2100 A5=A4:B5=B4:C5=C4:D5=D4
2110 A4=A3:B4=B3:C4=C3:D4=D3
2120 A3=A2:B3=B2:C3=C2:D3=D2
2130 A2=A1:B2=B1:C2=C1:D2=D1
2140 A1=A1+AS:B1=B1+BS:C1=C1+CS:D1=D1+DS
2142 REM
2160 IF A1=>315 THEN AS=OAS-OAS-OAS
2170 IF A1=<5 THEN AS=OAS
2180 IF B1=>195 THEN BS=OBS-OBS-OBS
2190 IF B1=<5 THEN BS=OBS
2200 IF C1=>315 THEN CS=OCS-OCS-OCS
2210 IF C1=<5 THEN CS=OCS
2220 IF D1=>195 THEN DS=ODS-ODS-ODS
2230 IF D1=<5 THEN DS=ODS
4010 LINE (A1 ,B1 )-(C1 ,D1 ),COL,B
4020 LINE (A2 ,B2 )-(C2 ,D2 ),COL,B
4030 LINE (A3 ,B3 )-(C3 ,D3 ),COL,B
4040 LINE (A4 ,B4 )-(C4 ,D4 ),COL,B
4050 LINE (A5 ,B5 )-(C5 ,D5 ),COL,B
4060 LINE (A6 ,B6 )-(C6 ,D6 ),COL,B
4070 LINE (A7 ,B7 )-(C7 ,D7 ),COL,B
4080 LINE (A8 ,B8 )-(C8 ,D8 ),COL,B
4090 LINE (A9 ,B9 )-(C9 ,D9 ),COL,B
4100 LINE (A10,B10)-(C10,D10),COL,B
4110 LINE (A11,B11)-(C11,D11),COL,B
4120 LINE (A12,B12)-(C12,D12),COL,B
4130 LINE (A13,B13)-(C13,D13),COL,B
4140 LINE (A14,B14)-(C14,D14),COL,B
4150 LINE (A15,B15)-(C15,D15),COL,B
4160 LINE (A16,B16)-(C16,D16),COL,B
4170 LINE (A17,B17)-(C17,D17),COL,B
4180 LINE (A18,B18)-(C18,D18),COL,B
4190 LINE (A19,B19)-(C19,D19),COL,B
4200 LINE (A20,B20)-(C20,D20),COL,B
4210 LINE (A21,B21)-(C21,D21),COL,B
4220 LINE (A22,B22)-(C22,D22),COL,B
4230 LINE (A23,B23)-(C23,D23),COL,B
4240 LINE (A24,B24)-(C24,D24),COL,B
4250 LINE (A25,B25)-(C25,D25),COL,B
4260 LINE (A26,B26)-(C26,D26),COL,B
4270 LINE (A27,B27)-(C27,D27),COL,B
4280 LINE (A28,B28)-(C28,D28),COL,B
4290 LINE (A29,B29)-(C29,D29),COL,B
4300 LINE (A30,B30)-(C30,D30),COL,B
4410 LINE (A31,B31)-(C31,D31),COL,B
4420 LINE (A32,B32)-(C32,D32),COL,B
4430 LINE (A33,B33)-(C33,D33),COL,B
4440 LINE (A34,B34)-(C34,D34),COL,B
4450 LINE (A35,B35)-(C35,D35),COL,B
4460 LINE (A36,B36)-(C36,D36),COL,B
4470 LINE (A37,B37)-(C37,D37),COL,B
4480 LINE (A38,B38)-(C38,D38),COL,B
4490 LINE (A39,B39)-(C39,D39),COL,BF
4500 LINE (A40,B40)-(C40,D40),0,B
4600 COUNTER2=COUNTER2+1
4620 IF COUNTER2=300 THEN COUNTER2=0:GOTO 550
5000 SOUND SOUND1,DELAY
8888 GOTO 1500
59999 REM               PIC3.PIC
